home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / CMPRComponent.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  2.1 KB  |  66 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        CMPRComponent.mod
  3.  
  4.      Contains:    ColorSync ProfileResponder Components Interface 
  5.  
  6.      Version:    Technology:    ColorSync 2.0
  7.                  Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE CMPRComponent;
  23.  
  24. IMPORT SYSTEM, Components, CMICCProfile, CMApplication;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     CMPRInterfaceVersion*        = 0;
  32.  
  33. (* Components.Component function selectors *)
  34.     kCMPRGetProfile*                = 0;
  35.     kCMPRSetProfile*                = 1;
  36.     kCMPRSetProfileDescription*    = 2;
  37.     kCMPRGetIndexedProfile*        = 3;
  38.     kCMPRDeleteDeviceProfile*    = 4;
  39.  
  40.  
  41. PROCEDURE CMGetProfile*(pr: Components.ComponentInstance; aProfile: CMICCProfile.CMProfileHandle; VAR returnedProfile: CMICCProfile.CMProfileHandle): CMApplication.CMError;
  42.     (*$IF NOT GENERATINGCFM*)
  43.     INLINE PASCAL $2F3C, 8, 0, $7000, $A82A;
  44.     (*$END*)
  45. PROCEDURE CMSetProfile*(pr: Components.ComponentInstance; newProfile: CMICCProfile.CMProfileHandle): CMApplication.CMError;
  46.     (*$IF NOT GENERATINGCFM*)
  47.     INLINE PASCAL $2F3C, 4, 1, $7000, $A82A;
  48.     (*$END*)
  49. PROCEDURE CMSetProfileDescription*(pr: Components.ComponentInstance; DeviceData: LONGINT; hProfile: CMICCProfile.CMProfileHandle): CMApplication.CMError;
  50.     (*$IF NOT GENERATINGCFM*)
  51.     INLINE PASCAL $2F3C, 8, 2, $7000, $A82A;
  52.     (*$END*)
  53. PROCEDURE CMGetIndexedProfile*(pr: Components.ComponentInstance; search: CMApplication.CMProfileSearchRecordHandle; VAR returnProfile: CMICCProfile.CMProfileHandle; VAR index: LONGINT): CMApplication.CMError;
  54.     (*$IF NOT GENERATINGCFM*)
  55.     INLINE PASCAL $2F3C, 12, 3, $7000, $A82A;
  56.     (*$END*)
  57. PROCEDURE CMDeleteDeviceProfile*(pr: Components.ComponentInstance; deleteMe: CMICCProfile.CMProfileHandle): CMApplication.CMError;
  58.     (*$IF NOT GENERATINGCFM*)
  59.     INLINE PASCAL $2F3C, 4, 4, $7000, $A82A;
  60.     (*$END*)
  61.  
  62. (* $ALIGN RESET*)
  63. (* $POP*)
  64.  
  65.  END CMPRComponent.
  66.